function makeinitialconditiontxt(target_long,simulation_start_utc,...
                                 area_radiation,area_drag,sat_mass,Cr,Cd)
mu = 398600.4418;
year    = simulation_start_utc(1);
month   = simulation_start_utc(2);
day     = simulation_start_utc(3);
hour    = simulation_start_utc(4);
minute  = simulation_start_utc(5);
second  = simulation_start_utc(6);
T = 86164.1;
a = (mu*(T/(2*pi))^2)^(1/3);

So_meters = Long2ECI_State(0,target_long,simulation_start_utc);


fileID = fopen('InitialCondition_data.txt','w');
fprintf(fileID,'%4.0d/%2.0d/%2.0d-%2.0d:%2.0d:%2.0d\n',year,month,day,hour,minute,second);
fprintf(fileID,'%2.0f\n',So_meters(1));
fprintf(fileID,'%f\n',So_meters(2));
fprintf(fileID,'%f\n',So_meters(3));
fprintf(fileID,'%f\n',So_meters(4));
fprintf(fileID,'%f\n',So_meters(5));
fprintf(fileID,'%f\n',So_meters(6));
fprintf(fileID,'satellite''s effective area for solar radiation: %f\n',area_radiation);
fprintf(fileID,'satellite''s effective area for drag: %f\n',area_drag);
fprintf(fileID,'satellite''s mass: %f\n',sat_mass);
fprintf(fileID,'Cr: %f\n',Cr);
fprintf(fileID,'Cd: %f\n',Cd);
fclose(fileID);


end